HCL Notes and Domino 9.0 Social Edition Forum - How to copy RTF Lite Thumbnail

Nov 4, 2013, 9:02 PM

82 Posts

Here is some code ...

Something like this (where, for this example, there is a field on the form in the destination db called Attachment to show the attachment)

Sub extractFile() Dim view As NotesView,attachmentDoc As NotesDocument,object Set view = thisDB.GetView("(Attachments)") Set attachmentDoc = vwTemplates.getfirstdocument() Set object =attachmentDoc.GetAttachment("attachmentFileName") Call object.ExtractFile ("c:\localPath\"+"attachmentFileName") End Sub	Sub AddFileAttachment() Dim rtitem As NotesRichTextItem With reportDoc Set rtitem= .CreateRichTextItem("Attachment") rtitem.EmbedObject EMBED_ATTACHMENT, "", "c:\localPath\"+"attachmentFileName" .save True,False End With End Sub
Function getFileName(doc as notesdocument) as string Dim fileItem As NotesItem Set fileItem = doc.GetFirstItem("$File") getFileName = fileItem.Values(0) End Function

~Justin Dwoaskiettu

Nov 6, 2013, 9:18 AM

9 Posts

Unfortunatelly it didn't help

This code works with "normal" RTF fields, but it won't work with RTF Lite thumbnail (for example in the Personal Adress book - Contact form).

I had tried it and it make copy of the attached jpg, but it didn't show up on screen, and after Edit and Save of the document by the user - attachment dissapears.

~Mary Chuaberg

Nov 6, 2013, 3:03 PM

82 Posts

Please reply with your code and specifics

Please reply with your code and the exact detailed specifics and I will try to reproduce and resolve

~Justin Dwoaskiettu

Nov 7, 2013, 9:40 AM

9 Posts

Thank you

Thank you for help, but I have solved it a moment ago.

I have to use DXLExporter for first doc and DXLImporter for second doc. And extract $FILE item to transfer it between two xmls.

~Mary Chuaberg

Nov 7, 2013, 8:05 PM

82 Posts

Good job! </>